home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / GNU / ispell_bin.lha / ispell-3.1.18bin / interfaces / GUISpell-1.1 / rexx / ttx / WordSpellCallBack.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1995-09-21  |  679 b   |  31 lines
  1. /*
  2.  * REXX:ttx/WordSpellCallBack.rexx ... needed by WordSpell.ttx
  3.  * Copyright © 1991  Christopher A. Wichura
  4.  * Based on REXX:ced/WordSpellCallBack.rexx by Loren J. Rittle
  5.  *
  6.  * Use as you will, just document your changes and keep my copyright
  7.  * intact.
  8.  *
  9.  * Christopher A. Wichura
  10.  * caw@miroc.chi.il.us
  11.  *
  12.  *  Reworked for GUISpell public release: Thu Mar 26 02:12:39 1992 LJR
  13.  */
  14.  
  15. options results
  16.  
  17. parse arg portname oldline oldcolumn oldfold item
  18. address value portname
  19.  
  20. GetCursorPos
  21. parse var result line column fold .
  22. if line ~= oldline then exit;
  23. if column ~= oldcolumn then exit;
  24. if fold ~= oldfold then exit;
  25.  
  26. address 'GUISpell' currenttext
  27. ReplaceWord result
  28.  
  29. exit
  30.  
  31.